home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Ham Radio 2000
/
Ham Radio 2000.iso
/
ham2000
/
misc
/
nshadow
/
series-1.bas
< prev
next >
Wrap
BASIC Source File
|
1994-06-23
|
812b
|
31 lines
5 PRINT " ***SERIES RESONANCE***"
10 PRINT
15 PRINT "WHAT IS THE VALUE OF (C) IN pF?"
20 INPUT "ENTER";C
25 PRINT "WHAT IS THE VALUE OF (L) IN uH?"
30 INPUT "ENTER";L
40 RS=2
50 RP=100000!
55 P=3.141592654#
60 Y=180/P
65 FR=10^3/((2*P)*((L*C)^.5))
66 PRINT FR, "RESONANT FREQUENCY (FR) IN MHZ."
70 PRINT "WHAT IS THE DESIRED VALUE OF (F) IN MHz?"
75 INPUT "ENTER";F
79 IF F > FR + 1 THEN 200 ELSE 80
80 FA=F*10^6
85 LA=L/10^6
90 CA=C/10^12
95 G=RP*(((1-4*P^2*FA^2*LA*CA)^2+RS^2*CA^2*4*P^2*FA^2)^.5)
100 H=((1-4*P^2*FA^2*LA*CA)^2+(RS+RP)^2*CA^2*4*P^2*FA^2)^.5
105 Z=G/H
110 J=Y*(ATN((RS*CA*2*P*FA)/(1-4*P^2*FA^2*LA*CA)))
115 K=Y*ATN(((RS+RP)*CA*2*P*FA)/(1-4*P^2*FA^2*LA*CA))
120 A=J-K
135 PRINT
165 PRINT F, "MHZ"
170 PRINT Z, "OHMS"
180 F=F+.1
190 GOTO 79
200 END